subroutine init_data_param
  use data_param
  implicit none

  ! Default values for existence of the data files
  init_exist=.false.
  label_exist=.false.
  diff_exist=.false.
  react_exist=.false.
  diss_exist=.false.

  ! Default values for optional objects
  geom_exist=.false.
  sink_exist=.false.
  source_exist=.false.

  ! Default values for the number of data
  n_label_data=0
  n_diff_data=0
  n_react_data=0
  n_diss_data=0
  n_geom_data=0
  n_sink_data=0
  n_source_data=0

  ! Assign null file names
  infn=""
  lafn=""
  dffn=""
  rtfn=""
  dsfn=""
  glfn=""
  gsfn=""
  grfn=""

  return 

end subroutine init_data_param
